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/ * * 

* Copyright (c) 1999 GEMPLUS group. All Rights Reserved. 



* Project name: GemXpresso Environment 

* - OPPurse a Javacard 2.1 & OP 2.0.1 applet example 

* Platform 

* Language 

* Devi tool 
* 

* Original author: Gemplus Java Card Group Software Environment 
* 



Java virtual machine 
JAVA 1 . 2 

Symantec VisualCafe 3 . 0C 



*/ 
/* 

* Package name 
*/ 

package com. gemplus . examples . oppurse; 
/*reset 

* Imported packages 
*/ 

import j avacard. framework . * ; 
import visa . openplatf orm. * ; 



public class OPPurseVl extends j avacard . framework .Applet 
{ 

// the APDU constants for all the commands. 



private 


final 


static 


byte 


INS_GET_BALANCE 




(byte) 0x30 ; 


private 


final 


static 


byte 


INS DEBIT 




(byte) 0x31 ; 


private 


final 


static 


byte 


INS_CREDIT 




(byte) 0x32 ; 


private 


final 


static 


byte 


INS VERIFY PIN 




(byte) 0x33 ; 


private 


final 


static 


byte 


SETCOUNTER 




(byte) 0x34 ; 


// Registration related command. 0x3X 






private 


final 


static 


byte 


SetMode 




= (byte) 0x35 ; 


private 


final 


static 


byte 


ReceiveMainTemplate 






(byte) 0x36 ; 














private 


final 


static 


byte 


SaveBaseTemplate 




(byte) 0x37 ; 


private 


final 


static 


byte 


SetUserlnf oC 




(byte) 0x38 ; 


private 


final 


static 


byte 


SavePhoto 




(byte) 0x39 ; 


private 


final 


static 


byte 


LockUserlnf o 






(byte) 0x3A ; 














// private 


final 


static 


byte 


Test Buffer 






(byte)0x3B ; 














// private 


final 


static 


byte 


matchm 






(byte)0x3C ; 














// Authentication related 


command. 0x4X 






private 


final 


static 


byte 


GetBaseTemplatelnf oC 




(byte) 0x41 ; 


private 


final 


static 


byte 


SendBaseTemplate 






(byte) 0x42 ; 














private 


final 


static 


byte 


SendPartialMainC 




(byte) 0x43 ; 


private 


final 


static 


byte 


GetAuxilaryMinutiaeC 




(byte) 0x44 ; 


private 


final 


static 


byte 


LoadMatchingVariablesC 




(byte) 0x45 ; 
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private final static byte Match = 
(byte) 0x4 6 ; 

private final static byte GetMatchScoreC = 
(byte) 0x47 ; 

private final static byte AuthenticateC = 
(byte) 0x48 ; 

private final static byte GetUserlnfoC = 
(byte) 0x4 9 ; 

private final static byte GetPhotoC = 
(byte) 0x4A ; 

private final static byte UnlockUserlnf o = (byte) 0x4B ; 

// Must delect for release version 

// the OP/VOP specific instruction set for mutual authentication 
private final static byte CLA_INIT_UPDATE = (byte) 0x80 

private final static byte INS_INIT_UPDATE = (byte) 0x50 

private final static byte CLA_EXTERNAL_AUTHENT I CATE = (byte) 0x84 
private final static byte INS_EXTERNAL_AUTHENTI CATE = (byte) 0x82 

private final static short atan_value [ ] = 
{ 

0, 57, 115, 172, 229, 286, 343, 401, 4 57, 514, 571, 62 8, 68 4, 741, 7 97, 853, 
90 9, 9 65 ,102 0,1 07 6, 1131, 1186, 1241, 12 95, 1350, 1404, 1458, 1511, 15 64, 1617 
, 1670, 1722, 

1775, 182 6, 1878, 192 9, 1980, 2 03 1,2081, 2131, 2180, 2229, 2278, 2 32 7, 2 37 5, 24 
23,2470,2517, 

25 64, 2 61 1,2 65 7, 2702, 2748, 27 92, 2837, 2881, 2 92 5, 2968, 3011, 3 05 4, 3096, 31 
38,3180,3221, 

32 62, 3302, 334 3, 33 82, 3 422, 34 61, 34 9 9, 353 8 , 357 5 , 3 613 , 3 650 , 3 687, 372 4, 37 
60, 3796, 3831, 

3866, 3 90 1,3 935, 3969, 40 03, 4 037, 4 07 0,4102, 4135, 41 67, 4199, 4230, 42 62, 42 
92, 4323, 4353, 

43 83, 4413, 4442, 4471, 4500 

}; 

private final static short sin_value[] = 
{ 

0,18, 35, 53, 70, 88, 105, 122, 140, 157, 174, 191, 

208, 225, 242, 259, 276, 2 93, 310, 326, 343, 359, 375, 3 91, 4 07, 423, 439, 454, 470 

r 

4 85, 500, 516, 530, 545, 5 60, 574, 588, 602, 616, 63 0, 643, 657, 67 0, 682, 695, 7 07 

}; 

// the PIN validity flag 

private boolean validPIN = false; 

// SW bytes for PIN Failed condition 

// the last nibble is replaced with the number of remaining tries 
private final static short SW_PIN_FAILED = ( short ) 0x63C0 ; 

// the illegal amount value for the exceptions, 
private final static short I L LE GAL_AMOUNT = 1; 

// the maximum balance in this purse. 

private static final short maximumBalance = 10000; 

// the current balance in this purse, 
private short balance; 



//counter 
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private short counter = (short) (0x0030) ; 
/* Security part of declarations */ 

// the Security Object necessary to credit the purse 
private ProviderSecur ityDomain securityOb j ect = null; 

// the security channel number 
byte secureChannel = (byte) OxFF; 

/ / the authentication status 

private boolean authenticationDone = false; 

// the secure channel status 

private boolean channelOpened = false; 

private byte CardEnabled = 0; 



/ * * 

* Only this class's install method should create the applet object. 
*/ 

protected OPPurseVl (byte [ ] buffer, short offset, byte length) 
{ 

// data offset is used for application specific parameter. 
// initialization with default offset (AID offset) . 
short dataOffset = offset; 



if (length > 9) { 

// Install parameter detail. Compliant with OP 2.0.1. 



// 


size 


content 


// 










// 


1 


[AID Length] 


// 


5-16 


[AID_Bytes] 


// 


1 


[Privilege Length] 


// 


1-n 


[Privilege Bytes] (normally lByte) 


// 


1 


[Application Proprietary Length] 


// 


0-m 


[Application Proprietary Bytes] 



// shift to privilege offset 

dataOffset += (short) ( 1 + buffer [offset] ) ; 

// finally shift to Application specific offset 

dataOffset += (short) ( 1 + buffer [dataOffset ]) ; 

// checks wrong data length 

if (buffer [dataOffset] != 2) 

// return received proprietary data length in the reason 
ISOException. throwlt ( (short) ( IS07 81 6 . SW_WRONG_LENGTH + 
offset + length - dataOffset) ) ; 



// go to proprietary data 
dataOf f set++; 



} else { 

// Install parameter compliant with OP 2.0. 
if (length != 2) 

ISOException. throwlt ( (short) ( IS07 81 6 . SW_WRONG_LENGTH + 

length) ) ; 

} 

// retreive the balance value from the APDU buffer 
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Applet 



short value = (short) (( (buf fer [( short ) (dataOffset + 1)]) & OxFF) 

I ( (buf fer [dataOffset] & OxFF) « 8)); 

// checks initial balance value 
if (value > max imumBa lance ) 

ISOException . throwlt ( IS07 81 6 . SW_DATA_ INVALID) ; 

// initializes the balance with the APDU buffer contents 
balance = value; 

// register this instance as an installed Applet 
register ( ) ; 

// ask the system for the Security Object associated to the 

securityOb j ect = OPSystem . get SecurityDomain () ; 

// applet is personalized and its state can change 
OPSystem. setCardContentState ( OPSystem . APPLET_PERSONALI ZED) ; 

// build the new ATR historical bytes 

byte [ ] newATRHistory = new byte[] 

{ 

// put "OPPurse" in historical bytes. 

(byte)0x4F, (byte) 0x50, (byte) 0x50, (byte) 0x75, (byte) 0x72, 
(byte) 0x73, (byte) 0x65 

}; 

// 

!!!!!!! 1! 1 !!! 1 ! 1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 

// ! ! ! ACTIVATED IF INSTALL PRIVILEGE IS "Default Selected" 
(0x04) . ! ! ! 

// 

i f t j i ft | i i t i i i !!!!!!!!!!!!!!!!!!!! | [ \ \ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

// change the default ATR to a personalized 1 s one 

OPSystem. setATRHi stBytes (newATRHistory, (short) 0, 

(byte ) newATRHistory . length) ; 
} 

/ * * 

* Method installing the applet. 

* Qparam installparam the array constaining installation parameters 

* @param offset the starting offset in installparam 

* @param length the length in bytes of the data parameter in 
installparam 

*/ 

public static void instal 1 (byte [ ] installparam, short offset, byte 
length ) 

throws ISOException 
{ 

// applet instance creation with the initial balance 

// The only method can be called by install method if the 
class constructor. 

// The constructor should be either private or protected, 
new OPPurse (installparam, offset, length ) ; 

} 

/ * * 

* Select method returning true if applet selection is supported. 

* @return boolean status of selection. 

*/ 
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public boolean select () 
{ 

validPIN = false; 

//ValidUser = 0; 

CardEnabled = 0; 
// reset security if used. 

// In case of reset deselect is not called 

reset_security ( ) ; 

// return status of selection 

return true; 

} 

I * * 

* Deselect method. 
*/ 

public void deselect () 
{ 

// reset security if used. 
reset_security ( ) ; 
return; 

} 

/ * * 

* Method processing an incoming APDU. 

* @see APDU 

* @param apdu the incoming APDU 

* @exception ISOException with the response bytes defined by ISO 
7816-4 

*/ 

public void process (APDU apdu) throws ISOException 
{ 

// get the APDU buffer 

// the APDU data is available in 'apduBuf fer ' 
byte [ ] apduBuffer = apdu . getBuf fer () ; 

// the "try" is mandatory because the debit method 
// can throw a j avacard . f ramework . UserException 
try 
{ 

if (apduBuffer [IS07816 .OFFSET_INS] > (byte) 0x34 I | 

apduBuffer [ IS07 81 6 . OFFSET_INS ] < (byte) 0x4F) 

{ 

switch (apduBuffer [IS07816 .OFFSET_INS] ) 
{ 

//****** Registration related commands, 
case SetMode : 

SetCurrentMode (apdu) ; 

break; 

case ReceiveMainTemplate : 

receive_main_template (apdu) ; 

break; 
case SaveBaseTemplate : 

save_base_template (apdu) ; 

break; 
case SetUserlnf oC : 

SetUserlnfo (apdu) ; 

break; 
case SavePhoto: 

save_photo (apdu) ; 

break; 
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case LockUserlnf o : 

lockUserlnfo (apdu) ; 
break; 

//****** Matching Related commands, 
case GetBaseTemplatelnf oC : 

GetBaseTemplatelnf o (apdu) ; 

break; 
case SendBaseTemplate : 

send_base_template (apdu) ; 

break; 
case SendPartialMainC : 

SendPartialMain (apdu) ; 

break; 

case GetAuxilaryMinutiaeC : 

GetAuxilaryMinutiae (apdu) ; 

break; 
case Match: 

match (apdu) ; 

break; 
case GetMatchScoreC : 

GetMatchScore (apdu) ; 

break; 

// case AuthenticateC : 

// authenticate ( apdu) ; 

// break; 

case GetUserlnf oC : 

GetUserlnfo (apdu) ; 
break; 

// case GetPhotoC: 

// GetPhoto (apdu) ; 

// break; 

// Must Delete UnlockUser Inf o entry point for the 

release version. 

case UnlockUserlnf o : 

UnlockUserlnf o (apdu) ; 
break; 

default : 

// The INS code is not supported by the dispatcher 
ISOException. throwlt (IS07 816 . SW_INS_NOT_SUPPORTED) ; 
break ; 



}// end of switch. 
}// endif. 
else 
{ 

switch (apduBuf fer [ I SO 7 8 1 6 . OFFSET_INS ] ) 

case INS_VERIFY_PIN : 

verif yPIN (apdu) ; 
break ; 



case INS_GET_BALANCE : 

getBalance (apdu) ; 
break ; 



case INS_DEBIT : 
debit (apdu) ; 
break ; 

case INS CREDIT : 
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credit (apdu) ; 
break ; 

case SETCOUNTER : 

SetCounter (apdu) ; 

break; 

case INS_INIT_UPDATE : 

if (apduBuf f er [ I SO 7 816. OFFSET_CLA] == CLA_INIT_UPDATE) 
// call initialize/update security method 
init_update (apdu) ; 
else 

// wrong CLA received 

ISOException. throwlt (IS07 816 . SW_CLA_NOT_SUPPORTED) ; 
break ; 

case INS_EXTERNAL_AUTHENTICATE : 

if (apduBuf f er [ I SO 7 816. OFFSET_CLA] 
CLA_EXTERNAL_AUTHENTI CATE ) 

// call external/authenticate security method 
external_authenticate (apdu) ; 

else 

// wrong CLA received 

ISOException. throwlt (IS07 816 . SW_CLA_NOT_SUPPORTED) ; 
break ; 

case IS07816. INS_SELECT : 
break ; 

default : 

// The INS code is not supported by the dispatcher 
I SOExcept ion . throwlt ( IS07 81 6 . SW_INS_NOT_SUPPORTED) ; 
break ; 
} // end of the switch 
} //end of if. 
} // end of the try 

catch (UserException e) 

{ 

// translates the UserException in an ISOException. 
if (e.getReason () == I LLEGAL_AMOUNT ) 
throw new ISOException ( IS07 81 6 . SW_DATA_INVALI D ) ; 

} 

} 

// 



//- PRIVATE METHODS 
// 



* Handles Verify Pin APDU. 

* @param apdu APDU object 
*/ 

private void veri f yPIN (APDU apdu) 
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// get APDU data 

apdu . setlncomingAndReceive ( ) ; 
// get APDU buffer 

byte [ ] apduBuffer = apdu . getBuf f er ( ) ; 
// check that the PIN is not blocked 
i f (OPSystem . getTr iesRemaining ( ) == 0) 

OPSystem. setCardContentState (OPSystem . APPLET_BLOCKED) ; 

// Pin format for OP specification 

// 

// 

I type (2) , length | nible (1) , nible (2) | nible (3) , nible (4) | . . . | nible (n- 
1) , nible (n) | 

// 

/ / get Pin length 

byte length = (byte )( apduBuffer [ I S07 8 1 6 . OFFSET_LC ] & OxOF); 

// pad the PIN ASCII value 

for (byte i=length; KOxOE; i+ + ) 

{ 

// only low nibble of padding is used 
apduBuffer [ IS07 81 6 . OFFSET_CDATA + i] = 0x3F; 

} 

// fill header TAG 

apduBuffer [0] = (byte) ((0x02 « 4) | length); 
// parse ASCII Pin code 
for (byte i=0; KOxOE; i++) 
{ 

// fill bytes with ASCII Pin nibbles 
if ( (i & 0x01) == 0) 
// high nibble 

apduBuffer [ (i » 1)+1] 

(byte) ( (apduBuffer [ IS07 81 6 . OFFSET_CDATA + i] & OxOF) « 4); 
else 

// low nibble 

apduBuffer [ (i » 1)+1] 1= 

(byte) (apduBuffer [IS07816 . OFFSET_CDATA + i] & OxOF); 
} 

// verify the received PIN 

/ / !!!!!!! ! 1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 
// ! ! ! WARNING PIN HAS TO BE INITIALIZED BEFORE USE ! ! ! 
/ / !! 1 ! 1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 

if (OPSystem. verifyPin (apdu, (byte) 0) ) 
{ 

// set PIN validity flag 
validPIN = true; 

// if applet state is BLOCKED then restore previous state 
(PERSONALIZED) 

if (OPSystem. getCardContent State () == OPSystem . APPLET_BLOCKED) 

OPSystem. setCardContentState ( OPSystem . APPLET_PERSONALI ZED) ; 
return; 

} 

// the last nibble of returned code is the number of remaining 

tries 

ISOException. throwlt ( (short) ( SW_PIN_FAILED + 
OPSystem . getTriesRemaining ( ) ) ) ; 
} 

/ * * 
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* Performs the "getBalance" operation on this counter. 
* 

* @param apdu The APDU to process. 

*/ 

private void getBalance ( APDU apdu ) 
{ 

// check valid Applet state 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
ISOException . throwlt ( IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 

// get the APDU buffer 

byte [ ] apduBuffer = apdu . getBuf fer () ; 



part 



// writes the balance into the APDU buffer after the APDU command 

apduBuf f er [ 5 ] = (byte) (balance >> 8) ; 
apduBuf f er [ 6] = (byte) balance; 



// sends the APDU response 
// switches to output mode 

apdu . setOutgoing ( ) ; 
// 2 bytes to return 

apdu . setOutgoingLength ( (short) 2 ) ; 
// offset and length of bytes to return in the APDU buffer 

apdu . sendBytes ( (short ) 5, (short) 2) ; 



part 



private void SetCounter (APDU apdu) 
{ 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
I SOExcept ion . throwlt ( IS07 816. S W_C OMMAN D_NO T _AL L OWE D ) ; 
byte [ ] apduBuffer = apdu . getBuf fer () ; 
// writes the counter into the APDU buffer after the APDU command 

apduBuf fer [ 5 ] = (byte) (counter >> 8); 

apduBuf fer [ 6] = (byte) (counter) ; 

counter ++; 
// sends the APDU response 
// switches to output mode 

apdu . setOutgoing ( ) ; 
// 2 bytes to return 

apdu . setOutgoingLength ( (short ) 2 ) ; 
// offset and length of bytes to return in the APDU buffer 

apdu . sendBytes ( (short ) 5, (short) 2 ) ; 

} 

/ * * 

* Performs the "bit" operation on this counter. 
* 

* @param apdu The APDU to process. 

* ^exception ISOException If the APDU is invalid. 

* ^exception UserException If the amount to debit is invalid. 

*/ 

private void debit (APDU apdu) throws ISOException, UserException 
{ 

// check valid Applet state 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
I SOExcept ion . throwlt ( IS07 816. S W_C OMMAN D_NOT_ALL OWE D ) ; 



// the operation is allowed only if master pin is validated 
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if ( ! validPIN) 

ISOException. throwlt (IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 
// get the APDU buffer 

byte [ ] apduBuffer = apdu . getBuf f er ( ) ; 

// Gets the length of bytes to recieved from the terminal and 
receives them 

// If does not receive 4 bytes throws an I SO . SW_WRONG_LENGTH 
exception 

if (apduBuffer [ 4 ] != 2 | | apdu . set IncomingAndReceive ( ) != 2) 

{ 

ISOException. throwlt (IS07 816 . SW_WRONG_LENGTH) ; 

} 

// Reads the debit amount from the APDU buffer 
// Starts at offset 5 in the APDU buffer since the 5 first bytes 
// are used by the APDU command part 

short amount = ( short )((( apduBuffer [ 6 ] ) & ( short) OxOOOOOOFF) 
I ( (apduBuffer [5] « 8 ) & (short) OxOOOOFFOO) ) ; 

// tests if the debit is valid 

if ( (balance >= amount) && (amount > 0) ) 

{ 

// does the debit operation 
balance -= amount ; 

// writes the new balance into the APDU buffer 

// (writes after the debit amount in the APDU buffer) 

apduBuffer [7] = (byte) (balance » 8) ; 

apduBuf f er [ 8 ] = (byte ) balance ; 

// sends the APDU response 

apdu . setOutgoing ( ) ; // Switches to output mode 
apdu . setOutgoingLength ( (short ) 2 ) ; // 2 bytes to return 
// offset and length of bytes to return in the APDU buffer 
apdu . sendBytes ( (short ) 7 , (short) 2) ; 

} 

else 

// throw a UserExcept ion with illegal amount as reason 
throw new UserExcept ion ( ILLEGAL_AMOUNT) ; 

} 

/ * * 

* Performs the "credit" operation on this counter. The operation is 
allowed only 

* if master pin is validated 
* 

* @param apdu The APDU to process. 

* Qexception ISOException If the APDU is invalid or if the amount to 
credit 

* is invalid. 

*/ 

private void credit (APDU apdu) throws ISOException 
{ 

// check valid Applet state 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
ISOException. throwlt (IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 
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// the operation is allowed only if master pin is validated and 
authentication is done 

if (!validPIN | | ! authent icat ionDone ) 

ISOException. throwlt (IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 

// get the APDU buffer 

byte [ ] apduBuffer = apdu . getBuf f er ( ) ; 

// gets the length of bytes to recieved from the terminal and 
receives them 

// if does not receive 2 bytes throws an I SO . SW_WRONG_LENGTH 
exception 

if (apduBuffer [ 4 ] != 2 | | apdu . set IncomingAndReceive ( ) != 2) 
throw new ISOException ( IS07 81 6 . SW_WRONG_LENGTH) ; 

// reads the credit amount from the APDU buffer 
// starts at offset 5 in the APDU buffer since the 5 first bytes 
// are used by the APDU command part 

short amount = ( short )((( apduBuffer [ 6 ] ) & ( short) OxOOOOOOFF) 
I ( (apduBuffer [5] « 8) & ( short ) OxOOOOFFOO )) ; 

// tests if the credit is valid 

if ( ( (short) (balance + amount) > maximumBalance ) | | (amount <= 
(short) 0) ) 

throw new ISOException ( IS07 81 6 . SW_DATA_INVALID) ; 

else 

// does the credit operation 
balance += amount ; 



* Performs the " init_update" security operation. 

* @param apdu The APDU to process. 

*/ 

private void init_update ( APDU apdu ) 
{ 

// receives data 

apdu . tlncomingAndReceive ( ) ; 

// checks for existing active secure channel 

if ( channelOpened) 

{ 

// close the openned security channel 

try 

{ 

securityOb j ect . closeSecureChannel ( secureChannel ) ; 

} 

catch (CardRuntimeException cre2) 
{ 

// channel number is invalid, this case is ignored 

} 

// set the channel flag to close 
channelOpened = false; 

} 

try 
{ 

// open a new security channel 

secureChannel = securityOb j ect . openSecureChannel (apdu) ; 
// set the channel flag to open 
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channelOpened = true; 
// get expected length 

short expected = apdu . setOutgoing () ; 
// send authentication result 
// expected length forced to OxlC 
apdu . setOutgoingLength ( (byte) OxlC) ; 

apdu. sendBytes ( IS07 81 6 . OFFSET_CDATA, (byte) Oxlc) ; 

} 

catch (CardRuntimeException ere) 
{ 

// no available channel or APDU is invalid 

ISOException . throwlt ( IS07 816 . SW_CONDITIONS_NOT_SATI SFIED) ; 

} 

} 

/* 

private void GetUserlnfo (APDU apdu) 
{ 

byte [ ] buffer = apdu . getBuf fer () ; 
byte length, i ; 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
ISOException. throwlt (IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 
if (ValidUser !=0x34) 

ISOException . throwlt ( IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 

else 
{ 

buffer[4] = (byte) (name . length+UserlD . length) ; 
length = (byte) (name . length) ; 
for (i=0; Klength; i++) 

buffer [5+i ] =name [ i ] ; 
length = (byte) (5+length) ; 
for (i = 0; KUserlD. length; i++) 

buffer [ (byte) (length+i) ] = UserID[i]; 
//apdu . setOutgoing ( ) ; 
// 2 bytes to return 

//apdu . setOutgoingLength ( (short) 30) ; 
// offset and length of bytes to return in the APDU buffer 
//apdu . sendBytes ( (short ) 5 , (short) 30) ; 
apdu . setOutgoingAndSend (( short) 5, (short) 30) ; 
} 

} 

*/ 

/* 

!!!!!!! NOTE !!!!!! 

This function is for testing purpose only and SHOULD be deleted 
after finish development. 

*/ 

private void GetMatchScore ( APDU apdu ) 

{ 

// check valid Applet state 

//if (OPSystem.getCardContentState () == OP System . APPLET_BLOCKED) 
/ / I SOExcept i on . throwlt ( IS07 816. SW_COMMAND_NOT_AL LOWED ) ; 

// get the APDU buffer 

byte [ ] apduBuffer = apdu . getBuf fer () ; 

// writes the balance into the APDU buffer after the APDU command 

part 

apduBuf f er [ 5 ] = (byte ) Mat chScore ; 
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apdu) ; 



apduBuf fer [6] = (byte) 0x7A; 
// sends the APDU response 
// switches to output mode 

//apdu . setOutgoing ( ) ; 
// 2 bytes to return 

//apdu . setOutgoingLength ( (short) 2 ) ; 
// offset and length of bytes to return in the APDU buffer 
//apdu . sendBytes ( (short ) 5 , (short) 2) ; 
apdu . setOutgoingAndSend ( ( short) 5, (short) 2 ) ; 

} 

/ * * 

* Performs the "external_authenticate" security operation. 
* 

* @param apdu The APDU to process. 

*/ 

private void external_authent icate ( APDU apdu ) 
{ 

// receives data 
apdu . setlncomingAndReceive ( ) ; 

// checks for existing active secure channel 
if ( channelOpened) 
{ 

try 
{ 

// try to authenticate the client 

securityObj ect . veri fyExternal Authenticate ( secureChannel , 

// authentication succeed 
authenticationDone = true; 

} 

catch (CardRuntimeException ere) 
{ 

// authentication fails 

// set authentication flag to fails 

authenticationDone = false; 

// close the openned security channel 

try { 

securityObj ect . closeSecureChannel (secureChannel) ; 
} cat ch (CardRuntimeException cre2) { 

// channel number is invalid, this case is ignored 

} 

// set the channel flag to close 

channelOpened = false; 

// send authentication result 

ISOException. throwlt (IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 
} 

// send authentication result 
ISOException . throwlt ( IS07 81 6 . SW_NO_ERROR) ; 

} 

else 

ISOException . throwlt ( IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 
} 

/ * * 

* The "reset_security" method close an opened secure channel if 
exist . 

* @return void. 
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*/ 

private void reset_securi ty ( ) 
{ 

// close the secure channel if openned. 

if ( secureChannel != (byte) OxFF) 

{ 

try 
{ 

// close the openned security channel 

securityOb j ect . closeSecureChannel (secureChannel) ; 

} 

catch (CardRuntimeException cre2) 
{ 

// channel number is invalid, this case is ignored 

} 

// reset security parameters 
secureChannel = (byte) OxFF; 
channelOpened = false; 
authenticationDone = false; 

} 

// Reset all matching constants to avoid any previous 
succesful login 

// continue to next secession. 
UserValid = 0; 
UserVerif yDone = 0; 
MatchScore = 0; 
FIDmode -1 ; 

return; 



//SetCurrentMode (APDU apdu) 

// CLA INS PI P2 LA (BYTES) LE (return 

bytes ) 

//APDU INPUT: CLA INS Kl K2 02 NM RF 02 

//APDU OUTPUT: FF 70 

// Kl, K2 Key to set mode of operation. Kl = ~K2 . 
// Kl = 0x27 : Registration mode. 
// K2 = 0x4A : Verification mode. 
// NM = Number of minutiae. 
// RF = ridge frequency. 

private void SetCurrentMode (APDU apdu) 
{ 

byte buffer [] = apdu . getBuf f er ( ) ; 

short Mindex; 

short SA1,SA2; 

byte PI, P2, LC, length; 

//short SA1,SA2; 

PI = buf f er [IS07816 .0FFSET_P1 ] ; 

P2 = buf f er [IS07816 .OFFSET_P2 ] ; 

LC = buf f er [IS07816 .OFFSET_LC] ; 
// if (OPSystem.getCardContentState () == OP System . APPLET_BLOCKED) 

// ISOException. throwlt (IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 

//Checksum = 0; 

apdu . setlncomingAndReceive ( ) ; 
FIDmode =0; // set to default mode 0; 
//if(LC != 4) 

// ISOException. throwlt ( IS07 81 6 . SW_DATA_INVALI D) ; 
if ( PI != (-P2) ) 

ISOException. throwlt (IS07 816 . S W_DAT A_ I NVAL I D ) ; 
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//if (InitObjDone==0) 

// ISOException. throwlt (IS07 816 . SW_FUNC_NOT_SUPPORTED) ; 
if (PI == 0x27) 

FIDmode =1; // registration 
if(P2 == 0x4A) 

FIDmode = 2; // verification, 
//if (FIDmode == 1) 
// OwerTemplateValid=0; 
//length = LC; 

Mindex =0; // reset the current Minutiae index to zero. 

//SA1 = (short) ( (short) (buffer [7] ) & ( short ) OxOOFF) ; 
SA1 = (short) (buffer [5] ) ; 
SA2 = (short) (buffer [6] ) ; 

//SA1 = (short) ( ( (short) (buffer [8] )« (byte) 8)+SAl) 
//SA2 = (short) ( (short) (buffer [5] ) & ( short ) OxOOFF) 
/ / SA2 = (short) ( ( (short) (buffer [6] ) « (byte) 8) +SA2) 
if (FIDmode == 1) 
{ 

i_RidgeFreq = (byte)SAl; 
NOMI = (byte) SA2; 

} 

if (FIDmode == 2) 
{ 

j_RidgeFreq = (byte)SAl; 
NOMJ = (byte) SA2 ; 

} 

UserVerif yDone = 0; 
MatchScore = (byte) OxFF; 
buffer [5] = (byte) OxFF; 
buffer [6] = (byte) 0x70; 

apdu . setOutgoingAndSend ( (short) 5, (short) 2) ; 



} 



private void FIDverif y (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf f er ( ) ; 
short SA1 ; 
byte P1,P2,LC; 

PI = buf f er [IS07816 .OFFSET_Pl ] ; 
P2 = buf f er [IS07816 .OFFSET_P2 ] ; 
LC = buf f er [IS07816 .OFFSET_LC] ; 
//short SA1; 
MatchScore=0; 

if (OPSystem.getCardContentState () == OP System . APPLE T_BLOCKED) 
ISOException. throwlt (IS07 816 . S W_C OMMAN D_NO T _AL L OWE D ) ; 

//if(LC != 2) 

// ISOException. throwlt ( IS07 81 6 . SW_DATA_INVALI D) ; 
if ( PI ! = (-P2) ) 

ISOException . throwlt ( IS07 816 . SW_DATA_ INVALID) ; 
if (P2 != 0x4A) 

ISOException. throwlt (IS07 816 . S W_DAT A_ I NVAL I D ) ; 
if (OwerTemplateValid==0) 

ISOException . throwlt ( IS07 816 . SW_FILE_INVALI D) ; 
SA1 = (short) ( ( (short) (buffer [ (short) 5] ) <<8) 

(short) (buffer [ (short) 5] ) & (short) OxOOFF) ; 

//Enable Verify Checksum later. 
//if(T chksum ! =chksum) 
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// 

ISOException. throwlt (IS07 816 . SW_CONDITIONS_NOT_SATISFIED) ; 
buffer[5] = (byte )( OxFF) ; 
buffer[6] = (byte )( 0x7 0 ) ; 

Init_Match (Mi_length, Mj_length, Mi_ridge_f req, Mj_ridge_f req) ; 
MatchScore = match ( (short) 22, (byte) 5); 
if (MatchScore> (byte) 22 && MatchScore< (byte) 70) 
ValidUser= (byte) 0x34; 

else 

ValidUser= (byte) OxFF; 
VerifyDone = 1; 

apdu . setOutgoingAndSend ( ( short) 5, (short) 2 ) ; 
//apdu . setOutgoing ( ) ; 

//apdu . setOutgoingLength ( (short) 2 ) ; 
//apdu . sendBytes ( (short) 5 , (short) 2 ) ; 
return; 

} 

*/ 

// Function to Validate User Minutiae Template, User Name and User 

ID. 

/* 

private void RegisterTemplate (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf fer () ; 
byte i,j; 
short SA1,SA2; 

byte P1,P2,LC; 

PI = buf f er [IS07816 .0FFSET_P1 ] ; 
P2 = buf f er [IS07816 .OFFSET_P2 ] ; 
LC = buf f er [ I S07 8 1 6 . OFFSET_LC ] ; 
apdu . setlncomingAndReceive ( ) ; 

if (OPSystem.getCardContentState () == OPSystem . APPLE T_BLOCKED) 

ISOException. throwlt (IS07 816 . SW_COMMAND_NOT_AL LOWED) ; 
if (LC < 2) 

ISOException. throwlt (IS07 816 . S W_DAT A_ I NVAL I D ) ; 
if (PI != (~P2)) 

ISOException . throwlt ( IS07 816 . S W_DAT A_ I NVAL I D ) ; 
if(Pl != 0x27) 

ISOException . throwlt ( IS07 816 . S W_DAT A_ I NVAL I D ) ; 
SA1 = (short) (( (short) (buf fer [ (short) 6] ) <<8) + 

(short) (buffer [ (short) 5] ) & (short) 0x0 OFF) ; 

for (i= (byte) 0;i<buffer [ (byte) 7] ;i++) 

name[i] = buf fer [ (byte )( i+8 )] ; 
//size = (byte) (buffer [ (byte) 4] -temp [ (byte) 2] - (byte) 3) ; 
j = (byte)buf fer [7] ; 
for (i= (byte) 0;i<10;i + + ) 

UserID[i] = buf fer [ (byte ) (j+i) ] ; 
OwerTemplateValid=l ; 
buffer[5] = (byte )( OxFF) ; 
buffer[6] = (byte )( 0x7 0 ) ; 

apdu. setOutgoingAndSend ( (short) 5, (short) 2) ; 

} 

*/ 
/* 

private void GetTestBuf fer (APDU apdu) 
{ 

// short i;SAl 
//short size;SA2 
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if (OPSystem. getCardContent State () == 
OPSys tern . APPLET_BLOCKED) 

ISOException. throwlt ( I S07 8 1 6 . SW_COMMAND_NOT_ALLOWED) ; 
byte buffer [ ] ; 



buffer = apdu . getBuf fer () ; 

SA2 = (short) buf fer . length; 
buffer [5] = ME1 . Compare_template ( ) ; 

buffer [6] = (byte) OxCC; 

buffer [7] = (byte)OxAA; 

buffer [8] = (byte)SA2; 

for (SA1 = 0; SAK2 45; SA1++) 

buf fer [ (short) (9+SA1) ] = TestBuf f er [ SA1 ] ; 
apdu. setOutgoingAndSend ( (short) 5, (short) OxFF) ; 

} 

*/ 



// Save data from apdu to base_template . 

// APDU input and response: please see receive_template ( . . . ) . 
// IF the template is locked, function throws 

SW_COMMAND_NOT_AL LOWED exception. 

private void save_base_template (APDU apdu) throws ISOException 
{ 

if (Userlnf oLock==l ) 

ISOException . throwlt ( IS07 816 . S W_C OMMAN D_NO T _AL L OWE D ) ; 
receive_template (apdu, base_template) ; 

} 

// Save User Photo from apdu to UserPhoto [ ] . 

// APDU input and response: please see receive_template (...). 
// IF the template is locked, function throws 

SW_COMMAND_NOT_AL LOWED exception. 

private void save_photo (APDU apdu) throws ISOException 
{ 

if (Userlnf oLock==l ) 

ISOException. throwlt (IS07 816 . S W_C OMMAN D_NOT_AL LOWED) ; 
receive_template ( apdu, UserPhoto) ; 

} 

// receive_template (...) 

// Function: receive data from apdu buffer and save data in 
array [ ] . 

// APDU Values: 

// PI: Total number of blocks. (N blocks) 

// P2 : current block number, (start from 1 to N) 

// PI and P2 should not equal to zero. 

// if the input data size is larger than the size of an array, 
// SW_FILE_FULL exception will be thrown. 

// " CLA INS PI P2 LA (BYTES) 

LE (return bytes) 

//APDU INPUT: CLA INS BA BN (size) . . . base_template [N] . . 04 

//APDU OUTPUT: FF 70 BN size 

// size: should not greater than 127 bytes, last byte should be FF 
for termination. 

//NOTE : method should not be called directly from APDU command, 
private void receive_template (APDU apdu, byte array [] ) throws 
ISOException 
{ 

byte databuf fer [] = apdu . getBuf fer () ; 
short i, length; //SA1, SA2, SA3 
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short Tindex; 
byte P1,P2; 
short SA1; 

PI = databuffer [ I S07 8 1 6 . 0FFSET_P1 ] ; // Total number of 

block . 

P2 = databuffer [ IS07 81 6 . 0FFSET_P2 ] ; // current block, 
apdu . waitExtension () ; 

SA1 = apdu . set IncomingAndReceive () ; 
//if(SAl != databuffer [IS07816 .OFFSET_LC] ) 

// ISOException.throwIt (IS07816 . SW_WRONG_LENGTH) ; 
if (OPSystem. getCardContentState () == 
OPSys tern . APPLET_B LOCKED) 

I SOException . throwl t ( I S07 816. SW_COMMAND_NOT_AL LOWED) ; 
if (databuffer [IS07 816. OFFSET_LC] =0) 

ISOException.throwIt (IS07816 . S W_ DA T A_ I N V A LID) ; 
if ( Pl>12 | | P2>12) 

I SOException . throwl t ( I S07 816. S W_ DA T A_ I N V A LID) ; 
if( PI < P2) 

I SOException . throwl t ( I S07 816. S W_ DA T A_ I N V A LID) ; 
length = databuf f er [ IS07 81 6 . OFFSET_LC] ; // get the size of 
the blk buffer. 

if (P2==l) 

Mindex=0; // Clear Mindex for saving the minutiae 

template . 

Tindex = Mindex; // copy the Minutiae Template index from 
EEPROM to Temp Index in RAM. 

for (i=5; i< (short) (length+5) ; i++) 
{ 

array [( short ) (Tindex++) ] = databuf fer [ i ] ; 
if (Tindex>array . length) 

ISOException.throwIt (IS07 816 . SW_FILE_FULL) ; 

} 

Mindex = Tindex; 
databuf fer [5] = (byte ) ( OxFF) ; 
databuf fer [6] = (byte )( 0x7 0 ) ; 
databuf fer [7] = P2; 
databuf fer [ 8 ] = (byte ) length; 

apdu . setOutgoingAndSend ( ( short) 5, (short) 4 ) ; 

} 

// send_base_template (...) 

// " CLA INS PI P2 LA (BYTES) 

LE (return bytes) 

// APDU INPUT: CLA INS 00 BN00 
BlockSize 

// APDU OUTPUT: (base_template [N] + FF) Total bytes = 128. (127 
data + 1 byte end code(FF) ) 

// Error: if the input block number BN is larger than the actual 
blocknumber and PI 1=0, 

// SW_WR0NG_P1P2 exception will be returned 

public void send_base_template (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf fer () ; 

byte size = buffer[5]; // read the return size, 
byte BN; 
short i, offset; 

BN = buffer [IS07816.0FFSET_P2] ; 

if(BN > BlockNumber && buf f er [ IS07 8 1 6 . 0FFSET_P1 ] ! =0 ) 

I SOException . throwl t ( I S07 816. SW_WR0NG_P1 P2 ) ; 
offset = (short) (BN * 127); 
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for (i=0;i<size;i++) 

buffer [ (short) (i + 5) ] = base_template [ (short) (offset + i) ] ; 

buffer [ (short) (i + 6) ] = (byte) OxFF; 

apdu . setOutgoingAndSend ( (short) 5, size) ; 

} 

//GetBaseTemplatelnf o (...) 

// CLA INS PI P2 LA (BYTES) 

LE (return bytes) 

//APDU INPUT: CLA INS 00 7C 00 . . . base_template [N] . . 04 

//APDU OUTPUT: BlockNumber End block size FF 70 

public void GetBaseTemplatelnf o (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf f er ( ) ; 

if ( (buffer [ IS07 81 6 . 0FFSET_P1 ] != (byte) 00) && 

(buffer [IS07816.0FFSET_P2] ! = (byte ) 0x7C) ) 

ISOException. throwlt (IS07 816 . SW_WR0NG_P1P2 ) ; 
buffer [5] = BlockNumber; 
buffer [6] = EndBlockSize; 

buffer [7] = (byte) OxFF; 
buffer [8] = (byte) 0x70; 

apdu . setOutgoingAndSend ( ( short) 5, (short) 4 ) ; 

} 

^Matching 
// Max. number of minutiae = 25; 

private short main_template [ ] = new short [ 100 ]; // i,j,t,f. in 
EE PROM. 4*25 

private byte base_template [ ] = new byte [450]; //compressed 
{d[3] ,n[3] ,o[3],f [3] ,t[3] }15*25 in EE PROM 18*25 compressed form, 
private byte n_template[] = new byte [25*3]; 
private byte i_RidgeFreq, j_RidgeFreq; 
private byte NOMI,NOMJ; // number of minutiae. 

private short mbi [ ] = new short [ 4 * 25 ] , mb j [ ] =new short [4*25]; 

//private short n_buf f er [ ] ; // = new short[150]; // in 
Transient memory. 

//**********Constants Area, 
private final static byte RidgeFreqTh = 6; 
private final static byte MNMO =3; 
private final static short MAXI = 0x7FE0; 
private final static short MAXF = 0x7FF0; 

private final static short BF = 2100; //2250 //pi/8 //(float) 
0.392699 //PI8 0.523599 //PI6 0.314159 //PI10 0.261799 //PI12 
0.523599 //PI6 

private final static short B03 = 1800; // pi/10 //(float) 
0.261799 //PI12 

private final static short BD3 = 60; //* (Iscale/10) ; 

//55* (Iscale/10) ; // (11/2)*10 //5.5 

//****************** "Static" members for user 

info ******************* 

private byte UserPhoto [ ] = new byte [4096]; // Reserve 4K for 

photo . 

private byte UserName [] = new byte [30]; 
private byte UserAddress [ ] = new byte [120]; 

private byte UserPassword [ ] = new byte [20]; 
private byte UserID[] = new byte[15]; 
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private byte UserSex = (byte)O; //0: undefine, 1: Male, 2: 

Female, 

//3: Tran-sexual- 

male,4: Tran-sexual-f emale, 

//5-255: Don't 

know? 

private byte UserlnfoLock = (byte)O; //1-lock, O-Unlock. NB . Once 
it locks, there is no way to unlock it. 

private byte UserValid = (byte)O; // 0 - invalid, 1 Valid. 

1 / * * * * * * * * * * * * * * * * * * Final Matching variable 

private short 
mi_xi= (byte) 0 , mi_x j = (byte ) 0 , m j_xi= (byte) 0 , mj_x j = (byte) 0 , 0_angle= (byte) 0 

, mi_index= (byte) 0, mj_index= (byte) 0 ; 
private short Mindex; 

private byte UserVeri f yDone = (byte)0; 
private byte MatchScore = (byte) 0x00; 

//~k~k~k-k~k~k~k-k~k-k~k-k~k-k~k~k~k~k Card mode Control ******************* 

private byte FIDmode — -1; 

I I****************** g^gg template info ******************* 
private byte BlockNumber=0; 
private byte EndBlockSize=0 ; 

// Lock User's Info. Once it locks, there is no way to unlock it. 

// CLA INS PI P2 LA (BYTES) LE (return 

bytes ) 

//APDU INPUT: CLA INS FA 25 02 

//APDU OUTPUT: FF 70 (lock User's info, successfully. 
//Exception: IS07 81 6 . SW_INC0RRECT_P1P2 (invalid unlock pin) 
//Exception: IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED (User' s info . 
has been locked.) 

private void lockUserlnfo (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf f er ( ) ; 
if ( (buffer [I S07 816. 0FFSET_P1] !=0xFA) | | (buf f er [ I S07 8 1 6 . 0FFSET_P1 ] !=0 

x25)) 

ISOException. throwlt (IS07 816 . SW_INC0RRECT_P1 P2 ) ; 
if (UserlnfoLock == 1) 

ISOException . throwlt (IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 
else 

UserlnfoLock = 1; 
buffer [5] = (byte) OxFF; 
buffer [6] = (byte) 0x70; 

apdu. setOutgoingAndSend ( (short) 5, (short) 2) ; 

} 

// SetUserlnf o ( . . ) 

// CLA INS PI P2 LA (BYTES) 

LE (return bytes) 

//APDU INPUT: CLA INS 00 type 02 

//APDU OUTPUT: FF 70 (Set User's info, successfully. 
//Type : 1-User Name, 2 -address , 3-UserI D, 4-password, 5-sex 
//Error : P2 < 5 IS07 81 6 . SW_WR0NG_P1P2 exception. 

//Note: Should finish matching first and the user has been verified 
by the matching engine. 

//Otherwise, SW_SECURITY_STATUS_NOT_SATISFIED exception will be 
returned . 

private void SetUserlnfo (APDU apdu) throws ISOException 



21 2/688 US 



{ 

byte buffer [] = apdu . getBuf fer () ; 
byte array [], i , length ; 

byte P2 = buf f er [ IS07 81 6 . 0FFSET_P2 ] ; 
if (P2>5 | | P2<0) 

ISOException. throwlt (IS07 816 . SW_WR0NG_P1P2 ) ; 

if ( P2 =5) 
{ 

UserSex = buffer[ IS07 81 6 . 0FFSET_P1 ] ; 

} 

else 
{ 

array = getUserlnf oPointer ( P2 ) ; 
length = buf f er [ I S07 8 1 6 . OFFSET_LC ] ; 
if ( length > array. length ) 

ISOException. throwlt (IS07 816 . SW_FILE_FULL) ; 
for (i = 0; Klength; i++) 

array [i ] =buffer [i+5 ] ; 
if( (array [ (byte) (length-2)] !=0xFF) && 

(array! (byte) (length-1) ] !=0x70) ) 

I SOExcept i on . throwl t ( I S07 816. SW_WRONG_DATA) ; 

} 

buffer [5] = (byte) OxFF; 
buffer [6] = (byte) 0x70; 

apdu . setOutgoingAndSend ( ( short) 5, (short) 2 ) ; 

} 

// GetUserlnf o (...) 

// CLA INS PI P2 

LE (return bytes) 

//APDU INPUT: CLA INS 00 type 02 

//APDU OUTPUT: UserInfo[] + FF 70 (Set User's info, successfully. 

//Type : 1-User Name, 2-address , 3-UserID, 4-password, 5-sex 
//Error : P2 < 5 IS07 81 6 . SW_WR0NG_P1P2 exception. 

//Note: Should finish matching first and the user has been verified 
by the matching engine . 

//Otherwise, SW_SECURITY_STATUS_NOT_SATISFIED exception will be 
returned . 

private void GetUserlnfo (APDU apdu) throws ISOException 
{ 

byte buffer [] = apdu . getBuf fer () ; 

byte array [], i , length, temp; 

if (UserVerifyDone==0 | | UserValid==0 ) 

ISOException. throwlt (IS07 816 . SW_SECURITY_STATUS_NOT_SATISFIED) ; 
byte P2 = buf fer [ IS07 81 6 . OFFSET_P2 ] ; 
if (P2>5 | | P2<0) 

ISOException. throwlt (IS07 816 . SW_WR0NG_P1 P2 ) ; 
if ( P2==5) 
{ 

buffer [5] = UserSex; 
buffer [6] = (byte) OxFF; 
buffer [7] = (byte) 0x70; 
length =3 ; 

} 

else 
{ 



LA (BYTES) 
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array = getUserlnf oPointer ( P2 ) ; 
length = buf f er [ I S07 8 1 6 . OFFSET_LC ] ; 
if ( length > array. length ) 

ISOException. throwlt (IS07 816 . SW_FILE_FULL) ; 
for (i=0; Klength; i++) 
{ 

temp = array [i] ; 
buffer[i+5] = array [i] ; 
if (temp == (byte) 0x70) 
break; 

} 

length = i; 

} 

apdu. setOutgoingAndSend ( (short) 5, (short) length) ; 

} 



private byte [ ] getUserlnf oPointer (byte type) 
{ 

switch (type) 
{ 



case 1 : 




return 


UserName ; 


case 2 : 




return 


UserAddress ; 


case 3 : 




return 


UserlD; 


case 4 : 




return 


User Pas sword; 


default : 




return 


null ; 



} 

//return null; 

} 

// Function for testing only, MUST delete for release version. 

private void UnlockUser Inf o (APDU apdu) 

{ 

UserlnfoLock = 0; 

} 

// receive_main_template (byte [ ] buffer) ; 

// CLA INS PI P2 LA (BYTES) LE (return 

bytes ) 

//APDU INPUT: CLA INS FC 32 (size) . . . main_template . . 02 

//APDU OUTPUT: FF 70 

public void receive_main_template (APDU apdu) / /byte [] buf fer) / / can 
be apdu [ ] buffer in smart card. 
{ 

byte buffer [] = apdu . getBuf fer () ; 

short Nbyte; 

Nbyte = apdu . set IncomingAndReceive () ; 
Decompress ionMain (buffer, NOMI ) ; 
buffer [5] = (byte) OxFF; 
buffer [6] = (byte) 0x7 0; 

apdu . setOutgoingAndSend ( (short ) 5 , ( short) 2 ) ; 

} 

/* 

public void SetLocalTemplatelnf o (byte nm, byte rf) 



21 2/688 US 



NOMI = nm; 
i_RidgeFreq = rf ; 

} 

*/ 

//GetAuxilaryMinutiae (APDU apdu) ; 
//Input format: | Index A 8-bit I 
//Output format: | Ai H8|Ai L8|Aj H8|Aj L8 | 

// CLA INS PI P2 LA (BYTES) LE (return 

bytes ) 

//APDU INPUT: CLA INS A 00 04 

//APDU OUTPUT: apdu[0--4] 

public void GetAuxilaryMinutiae (APDU apdu) 

{ 

byte buffer [] = apdu . getBuf fer () ; 
short id_A; 
short m_x i , m_x j ; 

id_A = (short) (buf f er [ IS07 8 1 6 . 0FFSET_P1 ] ) ; 
m_xi — main_template [ id_A] ; 
m_xj = main_template [ (short) (id_A+l) ] ; 
buffer [5] = (byte) ( (m_xi»8 ) &0x0 OFF) ; 
buf fer [6] = (byte) ( (m_xi&0x00FF) ) ; 
buffer [7] = (byte) ( (m_x j »8 ) &0x0 OFF) ; 
buffer[8] = (byte) ( (m_xj &0x00FF) ) ; 

apdu . setOutgoingAndSend ( (short) 05, (short) 04) ; 

} 

//format: | lower i (8-bit) I lower j (8-bit) I higher i (4-bit) + lower 
j (4-bit) | 

// + | Higher f (8-bit) | lower f (8-bit) | 

/ /SendPart ialMain (APDU apdu) 

// CLA INS PI P2 LA (BYTES) 

LE (return bytes) 

//APDU INPUT: CLA INS size 00 (1-8) cord []( 1-8 ). . 02 

//APDU OUTPUT: apdu [13 — 42] 

public void SendPartialMain (APDU apdu) throws ISOException //byte 
cord[],byte packedarray [ ] , byte num_core) //, short mi_verify[]) 
/ /packedarray can be apdu buffer. 
{ 

byte buffer [] = apdu . getBuf fer () ; 
short index=0 , count=0 ; 
short i , j ; 

byte k,num_core = buf f er [ I S07 8 1 6 . 0FFSET_P1 ] ; 
if (num_core>8) 

ISOException. throwlt (IS07 816 . SW_CONDITIONS_NOT_SATI SFIED) ; 
//{ 

// System . out . println ( "SendPartialMain (...) : Invalid no. 
of minutiae, length = "+length) ; 

// return;// error 
//} 

// try 
// { 

for (k=0 ; k<num_core; k++) 

{ 

index = (short) (buf f er [ k+5 ] * 4 ) ; 

i = main_template [index] ; 

j = main_template [( short ) (index+1)]; 

buf fer [ (short) (13+ (count++) ) ] = (byte) (i&OxOOFF) ; 
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buf fer [ (short) (13+ (count++) ) ] = (byte) (j&OxOOFF) ; 

buffer [ (short) (13+ (count+ + ) ) ] 
(byte) ( ( (i&OxOFOO) »4) + ( ( ( j &0x0F0 0 ) »8 ) &0x0 00F) ) ; 

i = main_template [( short ) (index+3)]; 

buffer [ (short) ( (short) 13+ (short) (count++) ) ] 
(byte) ( (i& (short) OxFFOO) » (byte) 8) ; 

buf fer [ (short) ( 13+ ( count++) ) ] = (byte) (i&OxOOFF) ; 

} 

// } catch (ArraylndexOutOf BoundsException e) 

// { 

// System . out . println ( "Array index out of bound: index = 

" + index+", count = " + count) ; 

// } 

buf fer [ (short) ( 1 3+ ( count + + ) ) ] = (byte) 0x55; 

buf fer [ (short) (13+ (count + + ) ) ] = (byte) OxAA; //Stop bytes (55 

AA) 

apdu . setOutgoingAndSend ( (short) 13, (short) count) ; 



// 4 packets involved, rewrite to packet mode to transmit data. 
// or use commit buffer method. 

public void construct_n_base_template () //short baselength, byte 
buffer []) 
{ 

short i, index, indexl, PackedDataH, PackedDataL; 
byte j ; 

//short length = ( short ) buf fer . length; 
// for (i=0; i<ba se length ; i++) 

// { 

// base_template [i ] =buf f er [i ] ; 

// } 

// Extract the number of ridge between two minutiae for 

matching . 

for (i=0;i<NOMI;i++) 
{ 

index = (short) (i*3) ; 
indexl = ( short ) ( ( i * 1 8 ) +8 ) ; 
PackedDataH =0; 
PackedDataL=0 ; 
for ( j=0; j<4; j++) 
{ 

if (j<2) 

PackedDataL += (int) (( (int) base_template [ (short ) (indexl + 
j )]& (int) OxOOff) « (short) (j«3) ) ; 
else 

PackedDataH += (int) ((( int ) base_template [( short ) (indexl + 
j) ] & (int) OxOOff )« (byte) ( (j-2)«3) ) ; 
} 

n_template [index+ + ] = (byte ) ( ( PackedDataH»2 ) & OxOOFF) ; 
n_template [index+ + ] = (byte) ( ( ( PackedDataH^ 0x01 ) «7 ) + 
((PackedDataL »1 ) &0x007F) ) ; 

n_template [index] = (byte) (PackedDataL & OxOOFF); 

} 

} 

//format : I t (4 -bit) +d (12-bit) I o (16-bit) H, L | f (16-bit) H, L | 
public void LoadMatchingVariables (APDU apdu) //byte nj,byte 
buffer []) //, short mbj_temp[]) // apdu buffer again! 



21 2/688 US 



byte buffer [] = apdu . getBuf f er ( ) ; 
short Nbyte; 

short Nbytes = apdu . set IncomingAndReceive () ; 
short i; 

short count=5, temp, index; 

//NOMJ = nj ; 

for (i=0;i<NOMJ; i++) 

{ 

index = (short) (i«2); 

temp = (short) (buffer [count++] «8) ; 

temp += ( (short) buff er [count++] &0x00FF) ; 

mbj [index] = (short) (temp&OxOFFF) ; //d, t 

mbj [ (short) (index+3) ] = (short) ( (temp»12) &0x000F) ; 

temp = (short) (buffer [count++] &0x00FF) ; 

temp = (short) (temp<<8) ; 

temp += (short) ((short) (buffer [count++] ) &0x00FF) ; 
mbj [ (short) (index+1) ] = temp; 

temp = (short) (( short ) buff er [ count++ ] <<8 ) ; //o 
temp += (buffer [count++] &0x00FF) ; 
mbj [ (short) (index+2) ] = temp; //f 

} 

} 

//Since APDU byffer has an offsets always equals to 5. 
private void GetBaselnf o (byte n j_template [ ] ) 
{ 

short temp, index; 

index = ( short )( (NOMJ« (byte ) 1 ) +NOMJ+ (byte ) 5 );/ / 5 if the 
offset of the APDU buffer. 

temp = 
(short) ( ( (short) (nj_template [index++] ) « (byte) 8) & (short) Oxf f 00) ; 

temp += (short) ( (short) nj_template [index+ + ] &0x00ff) ; 

mi_xi = temp; 

temp = 
(short) ( ( (short) (nj_template [index++] ) « (byte) 8) & (short) Oxf f 00) ; 

temp += (short) (( short ) nj_template [ index++ ]&( short ) OxOOff ) ; 
mi_xj = temp; 

temp = 
(short) ( ( (short) (nj_template [index++] ) « (byte) 8) & (short) Oxf f 00) ; 

temp += (short) ( (short) nj_template [index++] &0x00ff) ; 
mj_xi = temp; 

temp = 
(short) ( ( (short) ( n j_template [ index++ ] ) « (byte) 8) & (short) Oxf f 00) ; 

temp += (short) (( short ) nj_template [ index++ ]&( short ) OxOOff ) ; 
mj_xj = temp; 

temp - 
(short) ( ( (short) (nj_template [index++] ) « (byte) 8) & (short) Oxf f 00) ; 

temp += (short) ( (short) nj_template [index++] & (short) OxOOff ) ; 
0_angle = temp; 

mi_index = (short) ( n j_template [ index++ ] ) ; 
mj_index = (short) ( n j_template [ index++ ] ) ; 



// matching f unction . * * * * * * * * * * * * * * * * * * * * * * * * * * * * ******* 

// CLA INS PI P2 LA BYTES LE (return 

bytes ) 

//APDU INPUT: CLA INS 00 00 (NOMJ*3) . . . n j_template . . . 03 
//APDU OUTPUT: Matching Score (FF 70) valid return code. 
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public void match (APDU apdu) throws ISOException //short rfj,byte 
nj_template [ ] ) // nj_template : apdu buffer. 
{ 

byte n j_template [ ] = apdu . getBuf f er ( ) ; 
short MatchingScore=0 ; 
byte TestBase; 
short nm; 
short Nbytes; 

Nbytes = apdu . set IncomingAndReceive () ; 
if (Nbytes != (short) ( (NOM J«l ) +NOMJ) ) 

ISOException. throwlt ( IS07 816 . SW_CONDITIONS_NOT_SATI SFIED) ; 
/ / j_RidgeFreq = rf j ; 

if ( labs (( short ) ( i_RidgeFreq- j_RidgeFreq) ) >RidgeFreqTh) 

ISOException. throwlt (IS07 816 . S W_DAT A_ I NVAL I D ) ; 
if (NOM J < MNMO) 

ISOException. throwlt (IS07 816 . SW_CONDITIONS_NOT_SATI SFIED) ; 
if (NOMI>NOMJ) 

nm = NOMI ; 

else 

nm = NOMJ; 
GetBaselnfo (n j_template ) ; 
Ialign () ; 

MatchingScore = Imatchm (n j_template) ; //ni,nj; 

if (MatchingScore>2 0 0 ) MatchingScore = (short) 

( (short) (MatchingScore-200) / (short) (nm-2) ) ; 
else MatchingScore = 0; 
if (MatchingScore>100) 

MatchingScore=l 00 ; 
MatchScore = (byte) MatchingScore; //store matching score in card. 
UserVerif yDone =1; // Finish Verification 
if (MatchingScore>20) 

UserValid=l ; 
n j_template [ 5 ] = (byte ) MatchingScore ; 
nj_template [ 6] = (byte) OxFF; 
n j_template [ 6 ] = (byte) 0x70; 

apdu . setOutgoingAndSend ( (short) 5, (short) 3) ; 
//return MatchingScore; 

} 

/****************************************************************** 

Aligning minutiae 

AUTHOR: JIANG XUDONG 

******************************* i 

private void Ialign () 

{ 

byte i; 

short SA1 , SA2 , SA3 , SA4 , SA5 , SA6 , SA7 ; 

short MMindex, s_index ; //b_index, 

short alpha, beta; 

SA1 = mi_xi; 

SA2 = mi_x j ; 

SA3 = mj_xi; 

SA4 = mj_xj ; 

SA7 = (short) (0_angle) ; 

for (i=0; KNOMI; i++) 

{ 

if ( i==mi_index ) 
continue; 
MMindex = (short) (i*4); 

SA5 = (short) (main_template [MMindex] - SAl);//ii 
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SA6 = (short) (main_template [ (short ) (MMinclex+1 ) ] 

SA2);//ij 

s_index = (short) (i*4); 

mbi [s_index] = (short) Di st_calcA ( SA5 , SAG ) ; //d 

mbi [ (short) (s_index+l) ] = atan2 (SA5, SA6) ; //o 

mbi [ (short) (s_index+2) ] 
main_template [ (short) (MMindex + 3) ] ;//f 

mbi [ (short) (s_index+3) ] 
main_template [ (short) (MMindex+2) ] ; //t 
} 

} 



y/****************************************************************** 

local Matching 

AUTHOR: JIANG XUDONG 

**************************** I 

// set n j_minutiae [ ] template offset to 5. 

private short Imatchl (byte i,byte j,byte n j_minutiae [ ] ) 

{ 

//short nil, n22, n33, nl2, n21, n23, n32; 

short SA1, SA2, SA3 , SA4, SA5, SA6 , SA7 ; 

short fd[] =new short [9]; 

short mfd, s_index, MMindex; 

MMindex = (short) ((i«l)+i); 

s_index = (short) ( ( j «1 ) + j +5 ) ; // 5 bytes for apdu offset. //9- 
0, 10-1, 11-2 

SA1 = labs ( (short) (n j_minutiae [ s_index ] - n_template [MMindex] )) ; 

SA2 = labs ((short) (nj_minutiae [( short ) (s_index+l) ] 

n_template [ (short) (MMindex+1) ] ) ) ; 

SA3 = labs ((short) (nj_minutiae [( short ) (s_index+2)] 

n_template [ (short) (MMindex+2) ] ) ) ; 

SA4 = labs ( (short) (n j_minutiae [ s_index] 

n_template [ (short) (MMindex+1) ] ) ) ; 

SA5 = labs ((short) (nj_minutiae [( short ) (s_index+l)] 

n_template [MMindex] ) ) ; 

SA6 = labs ((short) (nj_minutiae [( short ) (s_index+l)] 

n_template [ (short) (MMindex+2) ] ) ) ; 

SA7 = labs ((short) (nj_minutiae [( short ) (s_index+2)] 

n_template [ (short) (MMindex+1) ] ) ) ; 

fd[0] = (short) (SA1+SA2) ;// (nll+n22) ; 

fd[l] =short) (SA1+SA6) ; // (nll+n23) ; 

fd[2] = (short) (SA4 + SA6) ; // (nl2+n23) ; 

fd[3] = (short) ( SA1 + SA7 ) ; / / (nl l+n32 ) ; 

fd[4] = (short) ( SA1 + SA3 ) ; / / (nl l+n33 ) ; 

fd[5] = (short) ( SA4 + SA3 ) ; / / (nl 2+n33 ) ; 

fd[6] = (short) ( SA5 + SA7 ) ; / / (n2 l+n32 ) ; 

fd[7] = (short) (SA5 + SA3) ; / / (n21+n33) ; 

fd[8] = (short) ( SA2+SA3 ) ; / / (n2 2+n33 ) ; 



mfd = 1024; 

//if (fd<mfd) mfd = fd; 



if 


(fd[0; 


<mfd) 


mfd = 


fd[0] 


if 


(fd[i; 


<mfd) 


mfd 


fd[l] 


if 


(fd[2; 


<mfd) 


mfd 


fd[2] 


if 


(fd[3! 


<mfd) 


mfd = 


fd[3] 


if 


(fd[4] <mfd) 


mfd = 


fd[4] 


if 


(fd[5; 


<mf d) 


mfd = 


fd[5] 


if 


(fd[6! 


<mfd) 


mfd = 


fd[6] 


if 


(fd[7] <mfd) 


mfd = 


fd[7] 
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if (fd[8]<mfd) mfd = fd[8]; 
if (mfd<2) return (20); 

else if (mfd<3) return (10); 
else if (mfd<4) return (5); 
else return ( 0 ) ; 



Match the minutiae 
AUTHOR: JIANG XUDONG 



private short Imatchm (byte n j_minutiae [ ] ) / /n j_minutiae will be remapped 

to apdu buffer. 

{ 

byte i, j; 

short s_index, t_index; 
short ti; 
short k, kk=0 ; 
short dds,di,dj; 

short dfs, dos, bot, bdt,oi, fi; //dos--angle . 

bot = 1800; //B03 = 1 800 ; //BF=2100 ; 
bdt = 12;//BD3= 8; 
for (i=0; KNOMI ; i++) { 

if ( i==mi_index) 
continue ; 

s_index = (short) (4*i) ; 

di = mbi[s_index] ; 

oi = mbi [ (short) ( s_index+l ) ] ; 

fi = mbi [ (short) (s_index+2) ] ; 

ti = mbi [(short) ( s_index+3 ) ] ; 

k = 0; 

for (j=0; j<NOMJ; j++) { 
if ( j ==mj_index) 

continue; 
t_index = (short) (j*4); 
dj = mbj [t_index] ; 
if(dj<0) 

continue ; 
dds = labs ( (short) (dj - di) ) ; 
if (dds<bdt) 
{ 

dos = labs ( (short) ( 

mbj [ (short) (t_index+l) ] - oi ) ) ; 

if (dos>18000) dos = (short) (18000 + (18000- 

dos) ) ; 

if (dos<bot) 
{ 

dfs = labs ( (short) (mbj [ (short) (t_index+2) ] - 

f i ) ) ; 

if (dfs>18000) dfs = (short) (18000+ (18000 - 

dfs) ) ; 

if (dfs<BF) 
{ 

k = 60; 

if (mbj [ (short) (t_index+3) ] == ti) k += 

20; 

k += Imatchl ( i , j , n j_minutiae) ; 
kk += k; 
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mbj [t_index] =-1 ; 

if(k>0) break; 
}//endof if(dfs<BF) 
} //endof if (dos<bot) 
}//endof if(dds<bdt) 
}//for (j . .) 
}//for (i. .) 
return kk; 

} 

//Since Zmain is apdu buffer, offset to index =5; 
private void DecompressionMain (byte Zmain [],byte N_Minutiae) 
{ 

byte i; 

short index=5, index 1=0, temp, tempi ; 

for (i=0 ; i<N_Minutiae ; i+ + ) 

{ 

temp = (short) ( ( ( (short) Zmain [index] ) &0x00FF) «8) ; 

temp = (short) (temp + 

( ( (short) (Zmain [ (short) (index+1) ] ) ) & 0x0 OFF) ) ; 

main_template [ (short) (indexl) ] = (short) ( (temp >> 

(short) 7) &0x01FF) ; //i 

tempi = (short) ( (temp & ( short ) 0x7F) «2 ) ; //j 

temp = Zmain [ (short) (index+2) ] ; 

main_template [( short ) (indexl+1)] = (short) (tempi 

+ (short) ( (temp & ( short ) OxCO ) »6 )) ; 

main_template [( short ) (indexl+2)] = (short) (temp & OxOF) ; 

//t 

tempi = 
(short) ( ( ( (short) Zmain [ (short) (index+3) ] ) & 0x0 OFF) «8) ; //f 

main_template [( short ) (indexl+3) ] = (short) (tempi + 

(short) ( (Zmain [ (short) (index+4) ] ) &0x00FF) ) ; 

index += 5; 

indexl += 4 ; 

} 



private final static short max_value= 32760; 
// function : atan (x) 

// x - integer (must be multiplied by 1000) 

// return value : atan (x) degree (+/- 0.5 degree) . 

// format: 000.00 

// range of x : +/- (0 to max_inf.) 

// resoution of input: 0.01 

// range of return value : -90.00 to 90.00 
// private short temp, xl , yl , z 1 , al , delta; 

private short atan (short x) 
{ 

short temp, delta, xl ; 
short value = -30000; 
temp = labs (x) ; 
if (temp > 31000) 

return 9000; 

delta = (short) (temp- ( (temp/ (short) (10) ) * (short) (10) ) ) ; 

if (temp>1000) // x>l; 

{ 

temp = (short) ( 32 7 60/temp) ; 
temp = (short) (temp * 31); 

} 



212/688US 



else 
{ 

xl = (short) (temp/10) ; 
if (xl==100) 

value = (short) (sgn (x) *4500) ; 

else 
{ 

temp = atan_value [xl ] ; 

temp = (short) (temp + 

(short) ( (atan_value [ (short) (xl+1) ] -temp) * delta) / (short) (10) ) ; 
value = (short) (sgn(x) *temp) ; 
} 

} 

if (temp >1000) 

temp =1000; 
if (value == -30000) 
{ 

delta = Delta (temp) ; 
xl = (short) (temp/10) ; 
if (xl==100) 

valuer (short) (sgn (x) M500) ; 
else 
{ 

temp = atan_value [xl ] ; 
temp = (short) (temp + (short) (( atan_value [( short ) (xl+1)]- 
temp) *delta) / (short) (10) ) ; 

value = (short) (sgn (x) * (9000 - temp) ) ; 
} 

//value = (short) (sgn (x) * (9000 - atan_value [temp] ) ) ; 

} 

//return 

(short) (Math.atan ( (float) (x) /1000.0f) /3. 1415 92 654 f* 18000. Of); 
return value; 

} 



// function : atan2(y,x) 

// x, y - integer 

// return value : atan2(y/x) degree (+/- 0.5 degree) . 

// range of x : + /- (0 to max_inf.) 

// resoution of input: 1 

// Return range : -180.00 to 180.00 

private short atan2 (short y, short x) 
{ 

short xl, yl, temp; 
xl = Iabs (x) ; 
yl=Iabs (y) ; 
if (x==0 I I y==0) 

return 0; 
if (x==0 && y>0) 

return 90; 
if (x==0 && y<0) 

return -90; 

if((xl>yl && xl>15000) | | (yl > max_value) ) 
temp 

(short) ( ( (short) yl/ (short) ( ( (short) xl / (short) 10 0) ) * (short) 10) ) ; 
else 
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{ 

if ( (short) (yl/xl) >55) 
temp = 31500; 

else 

temp = (short) ( ( (short) (yl*100) /xl) *10) ; 

} 

temp = atan (temp); 

if (x>0 && y>0) 
{ 

if (temp<0) 

temp = (short) (-temp); 

} 

else 

if (x<0 && y>0) 

temp = (short) (18000 - temp) ; 

else 

if (x<0 && y<0) 
{ 

if (temp>0) 

temp = (short) (-18000 + temp) ; 
else 

temp = (short) (-18000 - temp) ; 

} 

else 

if (x>0 && y<0) 
{ 

if (temp>0) 

temp = (short) (-temp) ; 

} 

if (temp> (short) (18000)) 

temp = (short) (18000 + (18000 - temp)); 
if (temp< (short) (-18000)) 

temp = (short) (18000 - (18000 + temp)); 
// Checking the precission of the Atan to avoid any 
truncation error. 

// short test = (short )( (Math . atan2 (y, x) * 180 . Of / 
3.141592654f ) *100) ; 

//if (Math .abs (test - temp)>500) 
//{ 

// System . out . println ( "Atan Precission Error") ; 

// System, out . print In ( "x= ,, +x+" , y="+y+" , atan2 

"+temp+", real atan2 = "+ test); 
// } 

//if ( sgn ( test ) ! =sgn (temp) ) 
//{ 

// System . out . println ( "Atan Sign Error") ; 

// System. out . println ( " x ="+x+" , y="+y+" , atan2 

"+temp+", real atan2="+ test) ; 

// } 

//return test; 
return temp; 

} 

private short short_div ( short a, short b) 
{ 

short c, d, e, f ; 
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//if (true) 

c = (short) (a/b) ; 

d = (short) (a%b) ; 

c = (short) (c* (short) 1000) ; 

e = (short) ( (short) (d* (short) 1000) / b) ; 

f = (short) ( (short) (d* (short) 1000) % b) ; 
// e = (short) ( (d * (short) (( short) 1000) /b) ) ; 

// f = (short) ((d * (short) ( (short) 1000) %b) ) ; 

if (f != (short) 0) 

{ 

if ((short) (b/f ) >= (short) 2) 
d= (short) (d+ (short) 1) ; 

} 

c = (short) (c+e) ; 
if (c<0) 

c= (short) (-c) ; 
return c; 

} 

private short short_divl ( short a, short b) 
{ 

short c, d, e, f ; 
//if (true) 
c = (short) (a/b) ; 
d = (short) (a%b) ; 
c = (short) (c* (short) 1000) ; 

e = (short) ( (short) (d* (short) 1000) / b) ; 
f = (short) ( (short) (d* (short) 1000) % b) ; 

// e = (short) ( (d * ( short ) 1 0 00 ) /b) ; 

// f = (short) ((d * (short) 1000) %b) ; 

if (f !=0) 

{ 

if ((short) (b/f )>= (short) 2) 
d= (short) (d+ (short) 1) ; 

} 

c = (short) (c+e) ; 
return c; 

} 

private short Delta (short a) 
{ 

return (short) (a - (a/ (short) 10) * (short) 10) ; 

} 



private short Dist_calcA ( short xa, short ya) throws ISOException 
{ 

short a_temp, tempi , temp; 
short xl , yl , delta, xal , yal ; 
short tl; 
if (xa== (short) 0) 

return ya; 
if (ya== (short) 0) 

return xa; 
xal = labs (xa) ; 
yal = labs (ya) ; 

if (yal>xal ) 
{ 

xl=yal ; 



21 2/688 US 



yl=xal ; 

} 

else 
{ 

xl=xal ; 
yl=yal; 

} 

if ((short) (xl/yl) > (short) 6) 
return xl ; 

else 

temp — short_div ( yl , xl ) ; 
if (temp< (short) 0) 

temp = (short) (-temp) ; 

if (temp<= (short) 1000 && temp>= (short) 0) 
{ 

delta = Delta (temp) ; 

tl= (short) (temp/ (short) 10) ; 

if (tl==100) 

temp = (short) (4500); 

else 

{ 

temp = atan_value [ tl ] ; 

a_temp = atan_value [( short ) (tl+ (short) (1))]; 
temp = (short) (temp + (short) ( (short) (a_temp- 

temp) *delta) / (short) (10) ) ; 

} 

a_temp = (short) (temp/ (short) 10) ; 

if ( (short) (temp - (a_temp) * (short) 10) > (short) 4) 

temp = (short) (a_temp+l); 
else 

temp = a_temp; 

if(temp > (short) 450) 
{ 

ISOException. throwlt (IS07 816 . SW_CONDITIONS_NOT_SATISFIED) ; 

//System. out . println ( "Value greater than 45 

drgrees : "+temp) ; 

//System. exit (1) ; 

} 

delta = Delta (temp) ; 

tl = (short) ( temp/ (short) 10) ; 

if (tl== (short) 45) 

temp = (short) (707) ; 

else 

{ 

temp = sin_value [ tl ] ; 

temp = (short) (temp + 

(short) ( (short) (sin_value [ (short) (tl+ (short) 1) ] - 
temp) *delta) / (short) (10) ) ; 

} 

} 

else 

temp = (short) 1000; 
if (temp == (short) 0) 

return (short) (yl); 



temp = short_div (yl , temp) ; 

//short test = (short) (Math.sqrt (xal^xal + yal*yal)) 
//if ((test - temp)>6) 

// System . out . print In ("Precission 
Error :x="+xal+" / y="+yal+" , result="+temp+" , Real Result="+test ) ; 
//return test; 

if (temp< ( short) 0) return (short) (-temp) ; 
return temp; 

} 

private short labs (short a) 
{ 

if (a< (short) 0) 

return (short) (-a) ; 
return a; 

} 

private short sgn (short x) 
{ 

if (x< (short) 0) 

return (short) -1; 

else 

return (short) 1; 
//return (x<0) ? -1:1; 

} 



}// End of Oppurse 



